'{$STAMP BS2sx} F VAR Word C VAR Word T VAR Word T1 VAR Word OUTPUT 12 'front input pin 10 DEBUG CLS, "Frequency # of Contacts", CR FOR F = 13000 TO 15500 STEP 10 T = 0 FOR C = 1 TO 10 FREQOUT 12,1,F T1 = IN10 IF T1 = 1 THEN pass T = T + 1 :pass PAUSE 10 NEXT DEBUG DEC F, " ", DEC T, CR NEXT STOP |